home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Lattice C v5.02 d4.adf / examples / debugger / rsrcs.cpr < prev    next >
Text File  |  1988-11-07  |  469b  |  14 lines
  1. /* Display the Resources in the system */
  2. execbase = import("00000004"x,4)
  3. liboff = 336
  4. nodebase = import(offset(execbase, liboff), 4)
  5.  
  6. 'd "  Address NT Pri Name"'
  7. do while(import(nodebase,4) ~= "00000000"x)
  8.    nt      = right(c2d(import(offset(nodebase,8),1),1),3)
  9.    pri     = right(c2d(import(offset(nodebase,9),1),1),4)
  10.    namestr = import(import(offset(nodebase,10),4))
  11.    'd "$'||c2x(nodebase)||nt||pri||' \"'||namestr||'\""'
  12.    nodebase = import(nodebase,4)
  13. end
  14.